Delphi a MS MapPoint 2002-2004
Otázka od: Petr Brant
15. 6. 2004 16:00
Ahoj, nedelate nahodou nekdo se %subj%? Uvital bych vymenu zkusenosti, kodu
apod. Nejlepe asi mimo konferenci, myslim, ze takovych lidi mnoho nebude.
Zdravim vsechny
RNDr. Petr Brant [brant@dcomm.cz]
http://web.redbox.cz/petr.brant
Odpovedá: Petr Zahradnik
15. 6. 2004 16:24
Puvodni zprava ze dne 15.6.2004:
> Ahoj, nedelate nahodou nekdo se %subj%? Uvital bych vymenu
> zkusenosti, kodu apod. Nejlepe asi mimo konferenci, myslim, ze
> takovych lidi mnoho nebude.
Co zase mimo konferenci? Proc sis tedy nedal inzerat do novin, kdyz si
to chces nechat pro sebe? Mam to tu opakovat snad kazdy tyden znovu a
znovu?
Petr Zahradnik, pocitacovy expert
==========================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, 400 07 Usti nad Labem
telefon: 475 501 627, mobil: 602 409 601, fax: 475 511 338
web: http://www.clexpert.cz, e-mail: clexpert@clexpert.cz
ICQ: 21215917, MSN: clexpert@clexpert.cz
==========================================================
Odpovedá: Petr Jarkovsky
15. 6. 2004 16:20
Sice s tim zatim nedelam, ale velice me to zajima. Proto prosim o prispevky i
do
konference.
Diky.
Petr Jarkovsky
-----Original Message-----
From: delphi-l-owner@clexpert.cz [mailto:delphi-l-owner@clexpert.cz] On Behalf
Of Petr Brant
Ahoj, nedelate nahodou nekdo se %subj%? Uvital bych vymenu zkusenosti, kodu
apod. Nejlepe asi mimo konferenci, myslim, ze takovych lidi mnoho nebude.
Zdravim vsechny
RNDr. Petr Brant [brant@dcomm.cz]
http://web.redbox.cz/petr.brant
Odpovedá: Petr Brant
15. 6. 2004 16:59
Dobra, v tom pripade zacnu s dotazem: Podle navodu na www.mp2kmag.com
<www.mp2kmag.com> jsem zapouzdril objekt MapPoint takto (pomijim ted import
TLB apod., vse je na vyse uvedenem odkazu popsano):
type
TMapPointOleContainer = class(TOleContainer)
...
end;
function TMapPointOleContainer.CreateMapObject(var Err: string): boolean;
var vGuid : TGuid;
begin
try
Result:= false;
CreateObject('MapPoint.Map.EU.9', False);
DoVerb(1);
OleObjectInterface.GetUserClassID(vGuid);
Map := IDispatch(self.OleObject) as _Map;
....
end;
Vysledkem je komponenta, posadim ji na form a vse funguje. Az na jednu vec:
Nastavim u te komponenty Anchors tak, aby se zvetsovala/zmensovala spolu s
formem. To take jde bez problemu. ALE: Zkusim dat na tentyz form vedle mapy
napr. TButton. Rozbehnu program, zahybam s velikosti okna, mapa se poslusne
prizpusobuje. Ted kliknu na button. Zahybam s velikosti okna a ejhle: Mapa
zustane v puvodni velikosti, je videt pouze to, ze se zvetsuje/zmensuje
plocha puvodni komponenty, nicmene mapa se uz ani nepohne. A zaboha netusim
proc. Je problem v TOleContaineru, v mem zapouzdreni nebo v MapPointu?
Zdravim vsechny
RNDr. Petr Brant [brant@dcomm.cz]
http://web.redbox.cz/petr.brant <http://web.redbox.cz/petr.brant>
> Sice s tim zatim nedelam, ale velice me to zajima. Proto prosim o
> prispevky i do
> konference.
> Diky.
>
> Ahoj, nedelate nahodou nekdo se %subj%? Uvital bych vymenu zkusenosti,
> kodu
> apod. Nejlepe asi mimo konferenci, myslim, ze takovych lidi mnoho nebude.
>
>